home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 5 / The 640 Meg Shareware Studio CD-ROM Volume V (Data Express)(1994).ISO / amiga / rxdssp14.lha / RxDS_test.rexx < prev    next >
OS/2 REXX Batch file  |  1994-01-23  |  2KB  |  76 lines
  1. /* RxDS_test.rexx --- test for RexxDosSupport.library */
  2.  
  3. call addlib("RexxDosSupport.library",0,-30,0)
  4. say "foobar"
  5.  
  6. text = fault(0,"test")
  7. if rc = 0 then say text
  8. text = fault(215,"test")
  9. if rc = 0 then say text
  10. text = fault(215)
  11. if rc = 0 then say text
  12.  
  13. server = 'default'
  14.  
  15. template = "name/A,,passwd,server/K,prio/N"
  16. input = "hartmut foobar prio 10"
  17.  
  18. if ReadArgs(input,template) then
  19.   say args.name '--' args.passwd '--' args.server '--' args.prio
  20.   say name '--' passwd '--' server '--' prio
  21. if ReadArgs(input,template,"args.") then
  22.   say args.name '--' args.passwd '--' args.server '--' args.prio
  23.  
  24. if ~ ReadArgs("server=default", template, "args.") then
  25.   say Fault(rc,"test")
  26.  
  27. template = "name/M,test/S"
  28. trace ?r
  29. input = "ich du er sie es test"
  30.  
  31. if ReadArgs(input,template) then do
  32.   say name.count test
  33.   do i = 0 for name.count by 1
  34.     say name.i
  35.   end
  36. end
  37.  
  38. pattern = "ha*mut"
  39. string = "hartmut"
  40.  
  41. say MatchPattern(pattern,string);
  42.  
  43. string = Upper(string)
  44. say MatchPattern(pattern,string);
  45. say MatchPattern(pattern,string,"N");
  46.  
  47. string = "hartmut"
  48. pattern = parsePattern(string)
  49. say rc
  50. pattern = ParsePattern("ha*mut")
  51. say MatchPattern(pattern,string,,"P");
  52. string = Upper(string)
  53. say MatchPattern(pattern,string,,"P");
  54. pattern = ParsePattern("har*ut","N")
  55. say MatchPattern(pattern,string,"N","P");
  56.  
  57.  
  58. result = GetVar("foobar")
  59. IF rc = 0 THEN
  60.   say "foobar has value" result;
  61. else
  62.   say "foobar not set"
  63.  
  64. SetVar("foobar", "test", "L")
  65. result = GetVar("foobar")
  66. IF rc = 0 THEN say "foobar has value" result;
  67.           else say "foobar not set"
  68. reslt = GetVar("foobar","L")
  69. IF rc = 0 THEN say "L: foobar has value" result;
  70.           else say "L: foobar not set"
  71. result = GetVar("foobar","G")
  72. IF rc = 0 THEN say "G: foobar has value" result;
  73.           else say "G: foobar not set"
  74. say DeleteVar("foobar", "L")
  75.  
  76.